home *** CD-ROM | disk | FTP | other *** search
/ Aminet 45 / Aminet 45 (2001)(GTI - Schatztruhe)[!][Oct 2001].iso / Aminet / dev / e / yaec.lha / examples / printfloat.e < prev    next >
Text File  |  2001-08-12  |  1KB  |  37 lines
  1.  
  2. /* Demoing the new formatcode : \f (YAEC1.9+) */
  3. /* Rounding should work exactly as with EC.. */
  4.  
  5.  
  6. /* should print :
  7. default (one decimal) :  4.0 no decimals :  4 three decimals :  4.010
  8. default (one decimal) :  2.8 no decimals :  3 three decimals :  2.775
  9. default (one decimal) :  1.5 no decimals :  2 three decimals :  1.541
  10. default (one decimal) :  0.3 no decimals :  0 three decimals :  0.306
  11. default (one decimal) : -0.9 no decimals : -1 three decimals : -0.928
  12. */
  13.  
  14. PROC main()
  15.    DEF a=4.0100:FLOAT -> typeing it will tell operators what to do..
  16.    WHILE a > -1.5
  17.       PrintF('\rdefault (one decimal) : \f[4] '+
  18.              'no decimals : \f.0[2] '+
  19.              'three decimals : \f.3[6]\n',
  20.              a, a, a)
  21.       a := a - 1.23456 
  22.    ENDWHILE
  23. ENDPROC
  24.  
  25. /* When where at it, yaec supports some more formatcodes :
  26.  
  27. \"   --   inserts a doublequote  (same as \q)
  28. \'   --   inserts a singlequote  (same as \a)
  29. \~   --   inserts NOTHING !      (only for formattingfunctions!)
  30.           example :
  31.           We want to print : <name>[<num>]
  32.           PrintF('\s\~[\d]', name, num)
  33.           Without it, the brackets would be seen as field-specifiers!
  34.  
  35. */
  36.  
  37.